home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BKISSSRC.ZIP / STRETCH / DRAWSTR.INC next >
Encoding:
Text File  |  1994-02-10  |  3.2 KB  |  73 lines
  1. ;this module was originally from Patch of Avalanche's PCXTOOLS package
  2. ;this version has been modified to work in normal unchained mode 13h
  3.  
  4. TransparentText = 1     ;set to 0 to draw backgrounds of letters
  5. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  6. ; void far Draw_String(byte far *fontdata, byte far *string,
  7. ;                  word xcoord, word ycoord, byte far *videoseg);
  8. ;
  9. PROC            _Draw_String far
  10.                 push bp
  11.                 mov bp,sp
  12.                 push si ds es fs gs
  13.  
  14.                 lds si,[dword bp + 6]       ; DS:SI -> fontdata
  15.                 add si,3                    ; point to offset table
  16.  
  17.                 les di,[dword bp + 18]
  18.                 add di,[bp + 14]            ; X coord
  19.                 mov dx,[bp + 16]            ; Y coord
  20.                 shl dx,4                    ; *16
  21.                 mov bx,dx                   ; save
  22.                 shl dx,2                    ; *64
  23.                 add dx,bx                   ; *64 + *16 = *80
  24.                 shl dx,2                    ; *80 *4 = *320
  25.                 add di,dx                   ; ES:DI -> video offset to start
  26.  
  27.                 lfs bp,[dword bp + 10]      ; FS:BP -> string
  28.  
  29. @@setupletter:  xor bh,bh
  30.                 mov bl,[byte fs:bp]                 ; load letter from message
  31.                 shl bx,1                            ; *2 = word sized
  32.  
  33.                 mov cx,[word si + bx]
  34.                 mov gs,si                           ; save font pointer
  35.                 sub si,3                            ; back to start
  36.                 add si,cx                           ; point to proper spot in font file
  37.  
  38.                 mov dh,[byte si + 1]                ; get X size
  39.                 mov dl,[byte si + 2]                ; get Y size
  40.                 or dx,dx
  41.                 jz @@nextcharacter
  42.                 add si,03h                          ; point to start of data
  43.  
  44. @@drawcol:      mov bx,di                           ; save video pointer
  45.                 mov cl,dl                           ; CL = height in pixels
  46. @@PixelLoop:    lodsb
  47.                 if TransparentText eq 1
  48.                     or al,al
  49.                     jz @@NextPixel
  50.                 endif
  51.                 shl al,5            ;*** this was moved out of the rotating
  52.                                     ;*** procedure so that the text buffer
  53.                                     ;*** is all ready to be made transparent
  54.                 mov [byte es:di],al
  55. @@NextPixel:    add di,320
  56.                 dec cl
  57.                 jnz @@PixelLoop
  58.                 mov di,bx                           ; restore video pointer
  59.                 inc di                              ; go to next column
  60.                 dec dh                              ;\ loop until all rows
  61.                 jnz @@drawcol                       ;/ are done
  62.  
  63. @@nextcharacter:mov si,gs
  64.                 inc bp                              ; next letter in message
  65.                 cmp [byte fs:bp],00h
  66.                 jne @@setupletter
  67.  
  68.                 pop gs fs es ds si
  69.                 pop bp
  70.                 ret
  71. ENDP            _Draw_String
  72. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  73.